MacFormat España 22/macformat_22.iso/Shareware/HyperCard/get-set-name-lock-25/Get⁄SetNameLock 2.5/Get_SetNameLock 2.5/cards.xml

Text File | 1996-09-05 | 4.6 KB | 117 lines

card_2941.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>2941</id>
    <filler1>0</filler1>
    <bitmap>BMAP_2158.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2672</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3235.css" />
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>1</left>
            <top>82</top>
            <right>511</right>
            <bottom>309</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>5</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>3</left>
            <top>54</top>
            <right>103</right>
            <bottom>76</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>GetNameLock</name>
        <script>on mouseUpanswer file "Choose a file to examine:"put it into appnameif appname = "" then exit to hypercardget getnamelock(appname)if the number of chars of it ≤ 5 thenanswer "The NameLock of “" & appname & "” is" && it & "."elseanswer it with "Sorry"end ifend mouseUp</script>
    </part>
    <part>
        <id>6</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>108</left>
            <top>54</top>
            <right>208</right>
            <bottom>76</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>SetNameLock</name>
        <script>on mouseUpanswer file "Choose a file to examine:"put it into appnameif appname = "" then exit to hypercardanswer "Change NameLock to what?" with getnamelock(appname) or not(getnamelock(appname))if it = "" then exit mouseupsetnamelock appname,itif the result ≠ "" then answer the result with "Sorry"end mouseUp</script>
    </part>
    <content>
        <layer>card</layer>
        <id>3</id>
        <text>GetNameLock takes one parameter, the pathname of the file you want to examine. SetNameLock takes two parameters, the pathname of the file and true or false to set the nameLock. Click on and/or examine the scripts of the buttons above to see how they work!This external is free for purely personal use. A license fee of $10.00 is required if you use this external in any “in-house” corporate, shareware or freeware products. The license fee for unlimited commercial use in a SINGLE “for sale” product is $25.00. The license fee for unlimited commercial use with MULTIPLE products is $100.00.Permission is hereby granted to all groups who distribute demo software, either for profit (such as EduCorp) or not for profit (such as a Macintosh Users Group), to include this file in their collection. My goal is to get as much exposure for my products as possible, and I believe that these groups offer an invaluable service to shareware publishers like myself.If you have questions or comments we can be reached through the following:Iverson Software Co.          507.625.7355522 Record St.                [e-mail] MN  56001-2546        http://prairie.lakes.com/~j5rson/</text>
    </content>
    <name></name>
    <script></script>
</card>